Partial Class Stock
    Dim db As DataClasses1DataContext
    Shared Sub AgregarNuevoTipoHerramienta(tipo As String, cantidad As Integer)

        db = New DataClasses1DataContext(sqlConfiguracon.GetConnectionString)
        Dim q = (From tp In Stock Where tp.ToString = tipo)

    End Sub

End Class

